library(ggplot2)
library(tidyverse)
library(scales)
library(plotly)

cc_list <- readRDS("comp-comp_covid.rds")

Data

cc_list$Data

New cases per day for each region

ggplotly(cc_list$`New cases per day for each region`)
## `geom_smooth()` using formula 'y ~ x'

New cases per day for each region facet

ggplotly(cc_list$`New cases per day for each region facet`)

Cases against Death

ggplotly(cc_list$`Cases against Death`)
## Warning in self$trans$transform(x): NaNs produced
## Warning: Transformation introduced infinite values in continuous x-axis

Cases against Death facet

ggplotly(cc_list$`Cases against Death facet`)
## Warning: Aspect ratios aren't yet implemented, but you can manually set a suitable height/width

## Warning: Aspect ratios aren't yet implemented, but you can manually set a suitable height/width

## Warning: Aspect ratios aren't yet implemented, but you can manually set a suitable height/width

## Warning: Aspect ratios aren't yet implemented, but you can manually set a suitable height/width

## Warning: Aspect ratios aren't yet implemented, but you can manually set a suitable height/width

## Warning: Aspect ratios aren't yet implemented, but you can manually set a suitable height/width

## Warning: Aspect ratios aren't yet implemented, but you can manually set a suitable height/width

## Warning: Aspect ratios aren't yet implemented, but you can manually set a suitable height/width

## Warning: Aspect ratios aren't yet implemented, but you can manually set a suitable height/width

## Warning: Aspect ratios aren't yet implemented, but you can manually set a suitable height/width

## Warning: Aspect ratios aren't yet implemented, but you can manually set a suitable height/width

## Warning: Aspect ratios aren't yet implemented, but you can manually set a suitable height/width